functions-demo

First Name Custom Function

get_first_name <- function( name )
{
  x <- strsplit( name, "," )
  fn <- sapply( x, function(x){return(x[2])} )
  fn <- trimws( fn )
  fn2 <- strsplit( fn, " " )
  fn2 <- sapply( fn2, function(x){return(x[1])} ) 
  fn2 <- trimws( fn2 )
  return( fn2 )
}

Assigning Gender Function

add_gender <- function( d )
{
  unique.first.names <- unique( d$first.name )
  gen <- gender( unique.first.names )
  gen <- dplyr::select( gen, name, gender )
  d <- merge( d, gen, by.x="first.name", by.y="name", all.x=TRUE )
  d$gender[ is.na(d$gender) ] <- "uncoded"
  d$gender <- factor( d$gender, levels=c("male","female","uncoded") )
  return(d)
}

Custom Titles Function

add_titles <- function(d) {
  title <- rep("", nrow(d))  
  
  # Assistant Professors 
  title[grepl("(?=.*\\b(Asst|Assistant)\\b)(?=.*\\b(Prof|Professor)\\b)", 
              d$Job.Description, ignore.case = TRUE, perl = TRUE)] <- "Assistant Professor"
  
  # Associate Professors 
  title[grepl("(?=.*\\b(Assoc|Associate|Asc Profr)\\b)(?=.*\\b(Prof|Professor)\\b)", 
              d$Job.Description, ignore.case = TRUE, perl = TRUE)] <- "Associate Professor"
  
  # Full Professors 
  title[grepl("Prof|Professor|& Professor", d$Job.Description, ignore.case = TRUE) & 
          !grepl("Asst|Assoc|Assistant|Associate|Asc Profr", d$Job.Description, ignore.case = TRUE)] <- "Full Professor"
  
  # Research Positions
  title[grepl("^Postdoctoral Research Scholar$", d$Job.Description, ignore.case = TRUE)]   <- "Researcher"
  title[grepl("Research Specialist", d$Job.Description, ignore.case = TRUE)]               <- "Researcher"
  title[grepl("Research Analyst", d$Job.Description, ignore.case = TRUE)]                  <- "Researcher"
  title[grepl("Postdoctoral Scholar", d$Job.Description, ignore.case = TRUE)]              <- "Researcher"
  title[grepl("Postdoctoral Fellow", d$Job.Description, ignore.case = TRUE)]               <- "Researcher"
  title[grepl("Research Scientist", d$Job.Description, ignore.case = TRUE)]                <- "Researcher"
  title[grepl("Research Professional", d$Job.Description, ignore.case = TRUE)]             <- "Researcher"
  title[grepl("Research Professor", d$Job.Description, ignore.case = TRUE)]                <- "Researcher"
  
  # Teaching Faculty
  title[grepl("^Instructor$", d$Job.Description, ignore.case = TRUE)]           <- "Teaching Faculty"
  title[grepl("Clinical .+ Professor", d$Job.Description, ignore.case = TRUE)]  <- "Teaching Faculty"
  title[grepl("Lecturer$", d$Job.Description, ignore.case = TRUE)]              <- "Teaching Faculty"
  title[grepl("^Lecturer Sr$", d$Job.Description, ignore.case = TRUE)]          <- "Teaching Faculty"
  title[grepl("^Principal Lecturer$", d$Job.Description, ignore.case = TRUE)]   <- "Teaching Faculty"
  title[grepl("Professor of Practice", d$Job.Description, ignore.case = TRUE)]  <- "Teaching Faculty"
  title[grepl("Adjunct Faculty", d$Job.Description, ignore.case = TRUE)]        <- "Teaching Faculty"
  title[grepl("Teaching Associate", d$Job.Description, ignore.case = TRUE)]     <- "Teaching Faculty"
  title[grepl("Senior Lecturer", d$Job.Description, ignore.case = TRUE)]        <- "Teaching Faculty"
  
  # Administrative roles
  title[grepl("Dean", d$Job.Description, ignore.case = TRUE)]      <- "Administrator"
  title[grepl("Director", d$Job.Description, ignore.case = TRUE)]  <- "Administrator"
  title[grepl("Chair", d$Job.Description, ignore.case = TRUE)]     <- "Administrator"
  
  
  d$title <- factor(title, 
                    levels = c("Full Professor", "Associate Professor",
                               "Assistant Professor", "Teaching Faculty",
                               "Researcher", "Administrator"))
  
  return(d)
}

Unstrung Salary Function

unstring_salary <- function(x)
{
  x <- gsub( "[$,]", "", x )
  x <- as.numeric( x )
  return(x)
}

FTE Function

make_salary_fte <- function(d)
{
  
  if( max(d$FTE) == 100 )
  {  salary <- d$salary / (d$FTE/100) }
  
  if( max(d$FTE) == 1 )
  { salary <- d$salary / d$FTE }
  
  d$salary <- salary
  
  return(d)
}

get_fte <- function( d )
{
  d$salary <- unstring_salary( d$Salary )
  d <- make_salary_fte(d)
  return(d)
}

Dollarize Function

dollarize <- function(x)
{ paste0("$", format( round( x, 0 ), big.mark="," ) ) }

Academic Units Function

academic.units <- 
  c("CISA-Intrdisp Hum & Comm", "CISA-Science & Mathmatics", 
    "College of Health Solutions MS", "College of Health Solutions NT", 
    "College of Health Solutions SH", "College Of Law", "English", "Hugh Downs School Of Comm", 
    "Humanities Arts & Cultural", "Journalism & Mass Comm", "Ldrshp and Integrative Studies", 
    "Math & Natural Sciences Div", "MDT Music", "Physics Department", 
    "Psychology", "Sch Biological & Hlth Sys Engr", "Sch Compt Infor & Dec Sys Engr", 
    "Sch Elect Comptr & Energy Engr", "Sch Engr Matter Trnsprt Energy", 
    "Sch Future of Innov in Society", "Sch Sustain Engr & Built Envrn", 
    "School Of Art", "School of Criminology & Crim J", "School Of Earth & Space Explor", 
    "School of Geog Sci & Urban Pln", "School of Math & Stat Sciences", 
    "School of Molecular Sciences", "School of Politics & Global St", 
    "School Of Public Affairs", "School of Social Transform", "School Of Social Work", 
    "SHPRS History Faculty", "Social & Behavioral Sciences", "Sols Administration & Faculty", 
    "SOS Faculty & Researchers", "The Design School", "The Sanford School", 
    "WPC Accountancy", "WPC Economics", "WPC Information Systems", 
    "WPC Management", "WPC Supply Chain Management")

Study Sample Function

get_study_sample <- function(d) {
  d <- d %>%
    filter(title != "" & !is.na(title)) %>%   
    filter(Department.Description %in% academic.units) %>%  
    arrange(Department.Description, title)   
  
  return(d)
}

Editing Dataframe

d$first.name <- get_first_name(d$Full.Name)
d <- add_gender(d)
d <- get_fte(d)
d <- add_titles(d)
d <- get_study_sample(d)
d$salary <- unstring_salary(d$Salary)

Create Salary Table Function

create_salary_table <- function(d) {
  t.salary <- d %>%
    filter(!is.na(title) & title != "") %>%  
    group_by(title, gender) %>%  
    summarize(
      q25 = quantile(salary, 0.25, na.rm = TRUE),  
      q50 = quantile(salary, 0.50, na.rm = TRUE),  
      q75 = quantile(salary, 0.75, na.rm = TRUE),  
      n = n()  
    ) %>%
    ungroup() %>%
    mutate(p = round(n / sum(n), 2))  
  
  return(t.salary)
}

Add Position

add_position <- function( t, position, y, xmax, scale.f=8 )
{
  
  t.original <- t
  t <- filter( t.original, title==position )
  dot.size <- 2 + scale.f*sum(t$p)
  offset.n <- 1 + sum(t$p)*2
  
  male.median <- NA
  n.male <- NA
  t <- filter( t.original, title==position & gender == "male" )
  if( nrow(t) > 0 )
  { 
    male.median <- t$q50 
    n.male <- t$n
  }
  
  
  female.median <- NA
  n.female <- NA
  t <- filter( t.original, title==position & gender == "female" )
  if( nrow(t) > 0 )
  { 
    female.median <- t$q50 
    n.female <- t$n
  }
  
  
  # dumbell plots 
  segments( x0=female.median, x1=male.median, y0=y,
            col=gray(0.3,0.5), lwd=7 )
  points( male.median, y,
          col=adjustcolor( "darkblue", alpha.f = 0.5), 
          pch=19, cex=dot.size  )
  points( female.median, y,
          col=adjustcolor( "firebrick", alpha.f = 0.5), 
          pch=19, cex=dot.size  )
  
  pos.f <- 2
  pos.m <- 4
  if( ! ( is.na(female.median) | is.na(male.median) ) )
  {
    pos.f <- ifelse( female.median > male.median, 4, 2 )
    pos.m <- ifelse( female.median > male.median, 2, 4 )
  }
  
  # add salaries to right and left 
  text( female.median, y, paste0("$",round(female.median/1000,0),"k"),
        col=adjustcolor( "firebrick", alpha.f = 0.7), 
        cex=1.2, pos=pos.f, offset=offset.n )
  text( male.median, y, paste0("$",round(male.median/1000,0),"k"),
        col=adjustcolor( "darkblue", alpha.f = 0.7), 
        cex=1.2, pos=pos.m, offset=offset.n ) 
  
  # add faculty counts
  n.female <- ifelse( is.na(n.female), 0, n.female )
  n.female <- ifelse( nchar(n.female)==1, 
                      paste0( " ", n.female), n.female )
  n.male <- ifelse( is.na(n.male), 0, n.male )
  n.male <- ifelse( nchar(n.male)==1, 
                    paste0( " ", n.male), n.male )
  text( xmax-0.1*xmax, y+0.14, paste0( "f   = ", n.female),
        col="gray50", cex=1.1, pos=4  )
  text( xmax-0.1*xmax, y-0.14, paste0( "m = ", n.male),
        col="gray50", cex=1.1, pos=4  )
  
  
  axis( side=2, at=y, labels=position, 
        las=2, tick=F, cex.axis=1.5, col.axis="gray50" )
}

Build Graph Function

build_graph <- function( t.salary, unit )
{
  unique.titles <- unique( t.salary$title )
  ymax <- length(unique.titles)
  xmax <- round( max(t.salary$q50), -3 ) + 50000
  color.key.pos <- 40000 + ( xmax - 40000 ) / 2
  color.key.inc <- ( xmax - 40000 ) / 10
  
  t.mf <- filter( t.salary, gender %in% c("male","female") )
  N <- sum( t.mf$n )
  
  par( mar=c(6,15,4.1,0) )
  plot.new()
  plot.window( xlim=c(40000-10000,xmax), ylim=c(0,ymax+1) )
  
  abline( v=seq(40000,xmax-40000,20000), lwd=1.5, lty=2, col=gray(0.5,0.5) )
  axis( side=1, 
        at=seq(40000,xmax-40000,20000), 
        labels=paste0("$",seq(40,(xmax-40000)/1000,20),"k"),
        cex.axis=1.1, col.axis="gray40", tick=FALSE )
  
  y <- ymax
  
  if( "Full Professor" %in% unique.titles )
  {
    add_position( t.salary, position="Full Professor", y, xmax )
    y <- y-1
  }
  if( "Associate Professor" %in% unique.titles )
  {
    add_position( t.salary, position="Associate Professor", y, xmax )
    y <- y-1
  }
  if( "Assistant Professor" %in% unique.titles )
  {
    add_position( t.salary, position="Assistant Professor", y, xmax )
    y <- y-1
  }
  if( "Teaching Faculty" %in% unique.titles )
  {
    add_position( t.salary, position="Teaching Faculty", y, xmax )
    y <- y-1
  }
  if( "Researcher" %in% unique.titles )
  {
    add_position( t.salary, position="Researcher", y, xmax )
    y <- y-1
  }
  
  
  text( color.key.pos + 3*color.key.inc, 0, "MALE", 
        col=adjustcolor( "darkblue", alpha.f = 0.7), cex=1.2 )
  text( color.key.pos + 1.8*color.key.inc, 0, "FEMALE", 
        col="firebrick",  cex=1.2 )
  text( xmax - 0.1*xmax, 0, paste0("N = ",N), col="gray40",  cex=1.2, pos=4 )
  
  
  title( main="Median Salary by Rank and Gender", cex.main=1.5, col.main="gray30" )
  title( xlab=unit, col.lab="gray50", cex.lab=1.5, line=5 )
  title( xlab="dot size represents proportion of faculty at that rank",
         col.lab="gray50", cex.lab=0.9 )
  
  return(NULL)
}

Psychololgy Filter

d %>%
  filter(Department.Description == "Psychology") %>%
  create_salary_table() %>%
  build_graph(unit = "Psychology")

## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

## NULL

Top Five Salaries Filter

top_five_salaries <- function(d) {
  
  top5 <- d %>%
    arrange(desc(salary)) %>%
    select(Full.Name, gender, title, salary) %>%
    head(5)  
  
  
  top5$salary <- dollarize(top5$salary)
  
  return(top5)
}

#Loop for all Departments

for (i in academic.units) {
  
  d2 <- filter(d, Department.Description == i)  # Isolate data for department
  
  if (nrow(d2) == 0) { next }  # Skip departments that do not exist
  
  # Generate tables and graph
  t.salary <- create_salary_table(d2)
  top_salaries <- top_five_salaries(d2)
  build_graph(t.salary, unit = i)
  
  # Display department name
  cat(paste0("<h2>", i, "</h2>"))  
  
  # Print tables using knitr::kable()
  cat("<h3>Salary Summary by Rank & Gender</h3>")
  cat(t.salary %>% knitr::kable(format = "html"))
  
  cat("<h3>Top Five Salaries</h3>")
  cat(top_salaries %>% knitr::kable(format = "html"))
  
  # Add spacing
  cat("<br><hr><br>")
}

## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

CISA-Intrdisp Hum & Comm

Salary Summary by Rank & Gender

title	gender	q25	q50	q75	n	p
Full Professor	male	88512.5	112230.0	129747.50	4	0.08
Full Professor	female	90775.0	106350.0	201675.00	3	0.06
Associate Professor	male	94612.0	94612.0	94612.00	1	0.02
Associate Professor	female	88762.5	89225.0	89687.50	2	0.04
Assistant Professor	male	73512.5	74025.0	74512.50	3	0.06
Assistant Professor	female	69387.5	72100.0	73287.50	4	0.08
Assistant Professor	uncoded	65000.0	65000.0	65000.00	1	0.02
Teaching Faculty	male	24389.0	46400.0	48897.00	9	0.19
Teaching Faculty	female	46512.5	48589.5	51706.25	20	0.42
Teaching Faculty	uncoded	24490.0	24490.0	24490.00	1	0.02

Top Five Salaries

Full.Name	gender	title	salary
Rhodes, Jewell	female	Full Professor	$297,000
Simpson, Brooks	male	Full Professor	$145,610
Mara, Andrew	male	Full Professor	$124,460
Brumberger, Eva	female	Full Professor	$106,350
Moulton, Ian	male	Full Professor	$100,000

---

## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

CISA-Science & Mathmatics

Salary Summary by Rank & Gender

title	gender	q25	q50	q75	n	p
Full Professor	male	36950.00	40145.0	71798.00	11	0.22
Full Professor	female	86247.50	108309.0	115903.50	4	0.08
Full Professor	uncoded	35000.00	35000.0	35000.00	1	0.02
Associate Professor	male	89752.00	95208.0	95847.00	3	0.06
Associate Professor	female	93698.00	94882.0	96066.00	2	0.04
Associate Professor	uncoded	90333.00	90333.0	90333.00	1	0.02
Assistant Professor	male	82780.00	83628.0	84814.00	3	0.06
Assistant Professor	female	81356.75	82713.5	84070.25	2	0.04
Assistant Professor	uncoded	84536.00	85024.0	85512.00	2	0.04
Teaching Faculty	male	48925.00	50000.0	58082.00	9	0.18
Teaching Faculty	female	48686.00	48925.0	56949.00	7	0.14
Teaching Faculty	uncoded	48106.50	48350.0	49275.00	3	0.06
Researcher	female	58000.00	58000.0	58000.00	1	0.02

Top Five Salaries

Full.Name	gender	title	salary
Green, Douglas	male	Full Professor	$168,217
Sagers, Cynthia	female	Full Professor	$123,750
Zandieh, Michelle	female	Full Professor	$113,288
Shovkovy, Igor	male	Full Professor	$107,675
Kang, Yun	female	Full Professor	$103,330

---

## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

College of Health Solutions MS

Salary Summary by Rank & Gender

title	gender	q25	q50	q75	n	p
Full Professor	male	162943.0	162943	162943.0	1	0.03
Full Professor	female	77908.0	77908	77908.0	1	0.03
Associate Professor	male	97398.0	115000	117640.0	3	0.09
Associate Professor	female	92248.5	93299	96112.5	4	0.12
Assistant Professor	male	59437.5	69625	79812.5	2	0.06
Assistant Professor	female	88000.0	88000	88000.0	1	0.03
Teaching Faculty	male	53062.5	59000	63550.0	7	0.21
Teaching Faculty	female	54500.0	55215	57482.5	11	0.32
Researcher	female	48789.0	50000	51352.0	3	0.09
Administrator	male	275000.0	275000	275000.0	1	0.03

Top Five Salaries

Full.Name	gender	title	salary
Buman, Matthew	male	Administrator	$275,000
Gaesser, Glenn	male	Full Professor	$162,943
Adams, Marc	male	Associate Professor	$120,280
Siegler, Jason	male	Associate Professor	$115,000
Huberty, Jennifer	female	Associate Professor	$103,650

---

## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

College of Health Solutions NT

Salary Summary by Rank & Gender

title	gender	q25	q50	q75	n	p
Full Professor	male	160000	160000	160000	1	0.03
Full Professor	female	81775	109273	140000	5	0.14
Associate Professor	female	105589	106665	113460	5	0.14
Assistant Professor	female	89000	89000	89000	1	0.03
Assistant Professor	uncoded	94700	94700	94700	1	0.03
Teaching Faculty	female	53625	56600	63725	17	0.49
Researcher	male	48113	48742	49371	2	0.06
Researcher	female	63650	66100	68550	2	0.06
Administrator	male	183500	183500	183500	1	0.03

Top Five Salaries

Full.Name	gender	title	salary
Kavouras, Stavros	male	Administrator	$183,500
Ohri-Vachaspati, Punam	female	Full Professor	$165,543
Wang, Shu	male	Full Professor	$160,000
Banks, Dorothy	female	Full Professor	$140,000
Bruening, Meredith	female	Associate Professor	$120,280

---

## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

College of Health Solutions SH

Salary Summary by Rank & Gender

title	gender	q25	q50	q75	n	p
Full Professor	female	77103.0	94322.5	138023.75	6	0.17
Associate Professor	male	101397.0	101397.0	101397.00	1	0.03
Associate Professor	female	100354.5	101709.0	101854.50	3	0.09
Associate Professor	uncoded	118400.0	118400.0	118400.00	1	0.03
Assistant Professor	male	98000.0	98000.0	98000.00	1	0.03
Assistant Professor	female	98050.0	98200.0	98350.00	2	0.06
Teaching Faculty	female	77500.0	80000.0	84780.00	13	0.37
Teaching Faculty	uncoded	106308.0	106308.0	106308.00	1	0.03
Researcher	male	29120.0	37440.0	66192.00	3	0.09
Researcher	female	26239.0	27641.5	37438.25	4	0.11

Top Five Salaries

Full.Name	gender	title	salary
Scherer, Nancy	female	Full Professor	$156,634
Gray, Shelley	female	Full Professor	$147,400
Berisha, Visar	uncoded	Associate Professor	$118,400
Dixon, Maria	female	Full Professor	$109,895
Schatzki, MariaRita	uncoded	Teaching Faculty	$106,308

---

## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

College Of Law

Salary Summary by Rank & Gender

title	gender	q25	q50	q75	n	p
Full Professor	male	150902.0	168774.5	170696.2	18	0.21
Full Professor	female	114801.5	124775.0	160066.2	18	0.21
Full Professor	uncoded	127155.0	127155.0	127155.0	1	0.01
Associate Professor	male	135750.0	138000.0	151869.0	6	0.07
Associate Professor	female	149830.0	156460.0	156476.0	3	0.03
Associate Professor	uncoded	93876.0	93876.0	93876.0	1	0.01
Assistant Professor	male	60000.0	60000.0	60000.0	1	0.01
Teaching Faculty	male	60000.0	68000.0	192600.0	9	0.10
Teaching Faculty	female	67250.0	68000.0	87500.0	6	0.07
Teaching Faculty	uncoded	75000.0	75000.0	75000.0	1	0.01
Researcher	male	45000.0	45000.0	45000.0	1	0.01
Administrator	male	120000.0	157600.0	181100.0	9	0.10
Administrator	female	73700.0	97615.0	122250.0	12	0.14

Top Five Salaries

Full.Name	gender	title	salary
Sylvester, Douglas	male	Administrator	$450,000
Bodansky, Daniel	male	Full Professor	$274,000
Banks, Angela	female	Full Professor	$255,250
Roberts, Lawrence	male	Teaching Faculty	$250,000
Selmi, Michael	male	Full Professor	$225,000

---

## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

English

Salary Summary by Rank & Gender

title	gender	q25	q50	q75	n	p
Full Professor	male	104626.00	116259.0	139770.00	21	0.14
Full Professor	female	108545.00	118742.5	130000.75	14	0.09
Associate Professor	male	92994.00	93820.0	95141.50	11	0.07
Associate Professor	female	88408.00	95862.0	97316.00	9	0.06
Assistant Professor	male	78900.00	79500.0	80000.00	5	0.03
Assistant Professor	female	80046.25	81246.5	82131.25	8	0.05
Assistant Professor	uncoded	102000.00	102000.0	102000.00	1	0.01
Teaching Faculty	male	49000.00	52100.0	52600.00	32	0.21
Teaching Faculty	female	49000.00	52600.0	52600.00	46	0.30
Teaching Faculty	uncoded	49000.00	51600.0	52600.00	5	0.03
Administrator	female	65750.00	75250.0	153325.00	3	0.02

Top Five Salaries

Full.Name	gender	title	salary
Lester, Neal	male	Full Professor	$270,208
Bate, Andrew	male	Full Professor	$250,000
Ratcliffe, Krista	female	Administrator	$231,400
Diaz, Natalie	female	Associate Professor	$210,200
Justice, George	male	Full Professor	$186,000

---

## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

Hugh Downs School Of Comm

Salary Summary by Rank & Gender

title	gender	q25	q50	q75	n	p
Full Professor	male	112290.00	116200.0	119450.00	5	0.09
Full Professor	female	104780.00	112610.0	132485.00	7	0.12
Associate Professor	male	95050.00	97700.0	98185.00	3	0.05
Associate Professor	female	100600.00	100600.0	100600.00	1	0.02
Associate Professor	uncoded	89907.25	89977.5	90047.75	2	0.03
Assistant Professor	male	74500.00	74500.0	74500.00	1	0.02
Assistant Professor	female	75350.00	76700.0	78350.00	3	0.05
Assistant Professor	uncoded	77300.00	77300.0	77300.00	1	0.02
Teaching Faculty	male	45000.00	47050.0	47190.00	13	0.22
Teaching Faculty	female	37730.00	45600.0	47190.00	20	0.34
Teaching Faculty	uncoded	46200.00	46200.0	46200.00	1	0.02
Administrator	female	84428.00	84428.0	84428.00	1	0.02

Top Five Salaries

Full.Name	gender	title	salary
Lederman, Linda	female	Full Professor	$220,000
Tracy, Sarah	female	Full Professor	$135,670
Corman, Steven	male	Full Professor	$130,500
Alberts, Janet	female	Full Professor	$129,300
Roberto, Anthony	male	Full Professor	$119,450

---

## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

Humanities Arts & Cultural

Salary Summary by Rank & Gender

title	gender	q25	q50	q75	n	p
Full Professor	male	69150.00	98798.0	105275.00	5	0.09
Full Professor	female	94191.50	99150.0	100119.00	7	0.13
Associate Professor	male	88015.75	88335.0	91287.50	8	0.15
Associate Professor	female	85325.25	86620.0	88704.50	10	0.19
Assistant Professor	male	75830.00	75830.0	75830.00	1	0.02
Assistant Professor	female	75750.00	75750.0	75750.00	1	0.02
Teaching Faculty	male	48300.00	48470.0	58200.00	5	0.09
Teaching Faculty	female	46150.00	47750.0	48685.00	15	0.28
Teaching Faculty	uncoded	48337.75	50545.5	52753.25	2	0.04

Top Five Salaries

Full.Name	gender	title	salary
Mendoza, Louis	male	Full Professor	$180,960
Pagan, Eduardo	male	Associate Professor	$114,900
Hanlon, Christopher	male	Full Professor	$105,275
Guzzetti, Barbara	female	Full Professor	$101,607
Kim, Marianne	female	Full Professor	$100,276

---

## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

Journalism & Mass Comm

Salary Summary by Rank & Gender

title	gender	q25	q50	q75	n	p
Full Professor	male	64617.50	66525.0	73720.50	4	0.07
Full Professor	female	94794.50	134589.0	146084.00	3	0.05
Associate Professor	male	70154.50	70963.0	75479.00	3	0.05
Associate Professor	female	74788.75	80611.0	88440.25	6	0.10
Associate Professor	uncoded	89635.00	89635.0	89635.00	1	0.02
Assistant Professor	male	69215.75	70121.5	71027.25	2	0.03
Assistant Professor	female	67591.00	67591.0	67591.00	1	0.02
Teaching Faculty	male	92362.50	105816.0	139440.50	12	0.20
Teaching Faculty	female	104105.00	115591.0	143440.00	15	0.25
Administrator	male	104531.00	105443.0	106355.00	2	0.03
Administrator	female	76292.50	125000.0	164275.25	12	0.20

Top Five Salaries

Full.Name	gender	title	salary
Gilger, Kristin	female	Administrator	$225,741
Misner, John	male	Teaching Faculty	$196,223
Beelman, Maud	female	Teaching Faculty	$185,000
Blatt, Rebecca	female	Administrator	$185,000
Mancilla Rannow, Sandra	female	Administrator	$177,101

---

## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

Ldrshp and Integrative Studies

Salary Summary by Rank & Gender

title	gender	q25	q50	q75	n	p
Associate Professor	male	43985.00	43985	43985.00	1	0.03
Associate Professor	female	89000.00	89000	89000.00	1	0.03
Assistant Professor	male	70653.00	70653	70653.00	1	0.03
Assistant Professor	female	70744.50	70749	72089.00	3	0.08
Teaching Faculty	male	48523.50	49623	53369.75	16	0.42
Teaching Faculty	female	48839.25	50796	54494.50	14	0.37
Teaching Faculty	uncoded	47079.50	47159	47238.50	2	0.05

Top Five Salaries

Full.Name	gender	title	salary
Akpan, Patience	female	Associate Professor	$89,000
Bates, Denise	female	Assistant Professor	$73,429
Giron, Angela	female	Teaching Faculty	$71,722
Castillo, Elizabeth	female	Assistant Professor	$70,749
Trinh, Mai	female	Assistant Professor	$70,740

---

## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

Math & Natural Sciences Div

Salary Summary by Rank & Gender

title	gender	q25	q50	q75	n	p
Full Professor	male	94531.50	105186.0	110058.75	6	0.09
Full Professor	female	114337.00	121440.0	124717.50	3	0.05
Full Professor	uncoded	100774.50	106398.0	112021.50	2	0.03
Associate Professor	male	89783.25	91158.5	102832.00	6	0.09
Associate Professor	female	95772.75	97358.0	98546.25	4	0.06
Associate Professor	uncoded	100166.00	100166.0	100166.00	1	0.02
Assistant Professor	male	86750.00	87000.0	88077.00	4	0.06
Assistant Professor	female	88000.00	89000.0	91199.25	6	0.09
Assistant Professor	uncoded	89062.50	91125.0	93187.50	2	0.03
Teaching Faculty	male	45000.00	47275.0	55250.00	12	0.18
Teaching Faculty	female	45000.00	47450.0	53322.25	16	0.25
Teaching Faculty	uncoded	57684.00	57684.0	57684.00	1	0.02
Researcher	male	62600.00	62600.0	62600.00	1	0.02
Researcher	uncoded	60000.00	60000.0	60000.00	1	0.02

Top Five Salaries

Full.Name	gender	title	salary
Morris, Vernon	male	Full Professor	$138,750
Dietrich, Suzanne	female	Full Professor	$127,995
Camacho, Erika	female	Full Professor	$121,440
Kanthaswamy, Sreetharan	uncoded	Full Professor	$117,645
Sullivan, Brian	male	Full Professor	$111,420

---

## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

MDT Music

Salary Summary by Rank & Gender

title	gender	q25	q50	q75	n	p
Full Professor	male	86820.00	92271.0	97899.00	15	0.20
Full Professor	female	88259.25	93371.0	101572.00	8	0.11
Full Professor	uncoded	91886.00	91886.0	91886.00	1	0.01
Associate Professor	male	84365.75	91149.5	98546.00	8	0.11
Associate Professor	female	73313.00	76250.0	77678.75	6	0.08
Assistant Professor	male	63631.75	67536.0	73125.00	12	0.16
Assistant Professor	female	63344.50	65587.0	79426.50	7	0.09
Teaching Faculty	male	33476.25	46718.0	71092.25	10	0.14
Teaching Faculty	female	44742.25	57362.5	69239.00	4	0.05
Administrator	male	46021.25	49123.5	52225.75	2	0.03
Administrator	female	77086.00	77086.0	77086.00	1	0.01

Top Five Salaries

Full.Name	gender	title	salary
Landes, Heather	female	Full Professor	$208,000
Hudson, James	male	Full Professor	$139,664
Marshall, Kimberly	female	Full Professor	$121,288
Roumain, Daniel	male	Teaching Faculty	$121,185
Spring, Robert	male	Full Professor	$115,305

---

## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

Physics Department

Salary Summary by Rank & Gender

title	gender	q25	q50	q75	n	p
Full Professor	male	117162.50	136500.0	180790.0	19	0.25
Full Professor	female	71879.75	93926.0	112269.2	4	0.05
Full Professor	uncoded	104376.50	118932.0	149878.5	3	0.04
Associate Professor	male	108412.75	111662.5	114505.0	8	0.11
Associate Professor	female	94150.00	98000.0	101850.0	2	0.03
Assistant Professor	male	92000.00	92500.0	92800.0	5	0.07
Assistant Professor	female	93500.00	93500.0	93650.0	3	0.04
Teaching Faculty	male	28000.00	28000.0	28000.0	1	0.01
Teaching Faculty	female	58200.00	58200.0	58200.0	1	0.01
Researcher	male	49607.00	51670.0	66650.0	14	0.19
Researcher	female	47957.00	50450.0	51563.0	6	0.08
Researcher	uncoded	47476.00	49700.0	51498.5	8	0.11
Administrator	male	187000.00	187000.0	187000.0	1	0.01

Top Five Salaries

Full.Name	gender	title	salary
Wilczek, Frank	male	Full Professor	$236,300
Ritchie, Barry	male	Full Professor	$233,201
Nemanich, Robert	male	Full Professor	$210,580
Bennett, Peter	male	Administrator	$187,000
Smith, David	male	Full Professor	$184,222

---

## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

Psychology

Salary Summary by Rank & Gender

title	gender	q25	q50	q75	n	p
Full Professor	male	121919.75	133778.5	164628.75	14	0.17
Full Professor	female	122167.00	151297.5	184948.25	8	0.10
Full Professor	uncoded	116113.50	118250.0	120386.50	2	0.03
Associate Professor	male	98000.00	106250.0	112619.00	9	0.11
Associate Professor	female	108367.00	113215.0	121520.00	5	0.06
Associate Professor	uncoded	111780.00	111780.0	111780.00	1	0.01
Assistant Professor	female	92000.00	92750.0	93875.00	6	0.07
Assistant Professor	uncoded	92000.00	92000.0	92000.00	1	0.01
Teaching Faculty	male	80702.50	85175.0	88887.50	4	0.05
Teaching Faculty	female	39130.75	52000.0	61321.50	4	0.05
Teaching Faculty	uncoded	35971.25	43647.5	51323.75	2	0.03
Researcher	male	56352.00	60000.0	78998.50	3	0.04
Researcher	female	50004.00	50760.0	62000.00	17	0.21
Researcher	uncoded	90534.00	108289.0	126044.00	2	0.03
Administrator	male	242093.00	242093.0	242093.00	1	0.01
Administrator	female	55125.00	55125.0	55125.00	1	0.01

Top Five Salaries

Full.Name	gender	title	salary
Neuberg, Steven	male	Administrator	$242,093
McNamara, Danielle	female	Full Professor	$227,000
Chassin, Laurie	female	Full Professor	$226,418
Mackinnon, David	male	Full Professor	$177,750
Kenrick, Douglas	male	Full Professor	$176,765

---

## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

Sch Biological & Hlth Sys Engr

Salary Summary by Rank & Gender

title	gender	q25	q50	q75	n	p
Full Professor	male	154528.2	174056.5	193584.8	2	0.05
Associate Professor	male	107706.0	117972.0	121982.0	11	0.26
Associate Professor	female	124058.0	124428.0	125130.5	3	0.07
Associate Professor	uncoded	111557.0	111557.0	111557.0	1	0.02
Assistant Professor	male	97250.0	98000.0	103692.2	4	0.09
Assistant Professor	female	100365.0	102125.5	103617.0	4	0.09
Assistant Professor	uncoded	97000.0	98000.0	98000.0	3	0.07
Teaching Faculty	male	72878.5	74357.0	75835.5	2	0.05
Teaching Faculty	female	73185.0	73185.0	73185.0	1	0.02
Researcher	male	49885.0	50000.0	52500.0	5	0.12
Researcher	female	54500.0	55000.0	68700.0	3	0.07
Researcher	uncoded	50003.0	50502.0	51770.0	4	0.09

Top Five Salaries

Full.Name	gender	title	salary
Santello, Marco	male	Full Professor	$213,113
Kleim, Jeffrey	male	Associate Professor	$159,301
Tyler, William	male	Associate Professor	$148,600
Lockhart, Thurmon	male	Full Professor	$135,000
Stabenfeldt, Sarah	female	Associate Professor	$125,833

---

## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

Sch Compt Infor & Dec Sys Engr

Salary Summary by Rank & Gender

title	gender	q25	q50	q75	n	p
Full Professor	male	149035.00	178002.0	200805.0	11	0.12
Full Professor	female	144750.00	147500.0	150250.0	2	0.02
Full Professor	uncoded	156917.50	177231.0	200075.0	11	0.12
Associate Professor	male	108716.50	126500.0	130815.0	8	0.09
Associate Professor	female	104035.00	111735.0	114165.0	3	0.03
Associate Professor	uncoded	106760.00	115127.0	121603.2	6	0.07
Assistant Professor	male	101450.00	104400.0	109750.0	11	0.12
Assistant Professor	female	102750.00	105500.0	107750.0	3	0.03
Assistant Professor	uncoded	106875.00	112500.0	113625.0	6	0.07
Teaching Faculty	male	79552.00	85000.0	89446.0	9	0.10
Teaching Faculty	female	54375.00	82500.0	90699.0	7	0.08
Teaching Faculty	uncoded	94966.00	98505.5	99805.0	4	0.04
Researcher	male	80106.75	97587.0	121668.8	6	0.07
Researcher	female	70885.50	71771.0	72656.5	2	0.02
Administrator	male	111930.00	111930.0	111930.0	1	0.01

Top Five Salaries

Full.Name	gender	title	salary
Panchanathan, Sethuraman	uncoded	Full Professor	$365,000
VanLehn, Kurt	male	Full Professor	$240,565
Kambhampati, Subbarao	uncoded	Full Professor	$224,719
Liu, Huan	male	Full Professor	$211,536
Mirchandani, Pitu	uncoded	Full Professor	$206,710

---

## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

Sch Elect Comptr & Energy Engr

Salary Summary by Rank & Gender

title	gender	q25	q50	q75	n	p
Full Professor	male	128984.8	160931.0	173387.8	18	0.17
Full Professor	female	154620.2	160298.5	177500.0	8	0.08
Full Professor	uncoded	143667.2	171328.0	201999.8	10	0.10
Associate Professor	male	116660.0	119340.0	126580.0	9	0.09
Associate Professor	female	116377.5	118065.0	120885.0	4	0.04
Associate Professor	uncoded	107899.5	107959.0	112569.5	3	0.03
Assistant Professor	male	98000.0	103000.0	105000.0	11	0.11
Assistant Professor	female	108500.0	108500.0	108500.0	1	0.01
Assistant Professor	uncoded	99375.0	102750.0	105375.0	6	0.06
Teaching Faculty	male	75500.0	77000.0	78750.0	3	0.03
Teaching Faculty	female	80000.0	80000.0	80000.0	1	0.01
Researcher	male	50750.0	65000.0	70000.0	20	0.19
Researcher	uncoded	53500.0	55000.0	62960.0	7	0.07
Administrator	female	70943.5	80629.0	90314.5	2	0.02

Top Five Salaries

Full.Name	gender	title	salary
Vittal, Vijay	male	Full Professor	$298,000
Lai, Ying-Cheng	uncoded	Full Professor	$270,200
Kiaei, Sayfe	uncoded	Full Professor	$264,880
Meldrum, Deirdre	female	Full Professor	$235,250
Balanis, Constantine	male	Full Professor	$221,879

---

## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

Sch Engr Matter Trnsprt Energy

Salary Summary by Rank & Gender

title	gender	q25	q50	q75	n	p
Full Professor	male	143412.2	151324.0	160002.8	18	0.16
Full Professor	female	193000.0	201000.0	246578.5	3	0.03
Full Professor	uncoded	134802.0	147042.5	156154.5	4	0.04
Associate Professor	male	111040.0	116990.0	124087.5	11	0.10
Associate Professor	female	112709.0	116429.0	119550.0	5	0.04
Associate Professor	uncoded	104657.8	116033.0	121064.2	8	0.07
Assistant Professor	male	97500.0	99500.0	100500.0	9	0.08
Assistant Professor	female	102190.0	103380.0	104190.0	3	0.03
Assistant Professor	uncoded	96625.0	98000.0	101250.0	10	0.09
Teaching Faculty	male	22000.0	80000.0	84000.0	9	0.08
Teaching Faculty	uncoded	74750.0	76000.0	77250.0	2	0.02
Researcher	male	45000.0	48925.0	52500.0	17	0.15
Researcher	female	50171.5	51443.0	55721.5	3	0.03
Researcher	uncoded	35607.0	45000.0	48107.0	12	0.11

Top Five Salaries

Full.Name	gender	title	salary
Chattopadhyay, Aditi	female	Full Professor	$292,157
Dahm, Werner	male	Full Professor	$248,748
Lin, Jerry	male	Full Professor	$218,200
Dai, Lenore	female	Full Professor	$201,000
Jannesari Ladani, Leila	female	Full Professor	$185,000

---

## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

Sch Future of Innov in Society

Salary Summary by Rank & Gender

title	gender	q25	q50	q75	n	p
Full Professor	male	154946.00	164443.0	196589.25	6	0.12
Full Professor	female	123845.00	179725.0	189810.50	3	0.06
Associate Professor	male	95728.00	102467.0	108301.00	3	0.06
Associate Professor	female	86142.50	96800.0	100919.50	3	0.06
Associate Professor	uncoded	113874.00	113874.0	113874.00	1	0.02
Assistant Professor	male	94015.25	94263.5	94511.75	2	0.04
Assistant Professor	female	75655.25	86355.0	92880.00	8	0.15
Assistant Professor	uncoded	92700.00	92700.0	92700.00	1	0.02
Teaching Faculty	male	52148.00	58877.5	82310.50	4	0.08
Teaching Faculty	female	71707.50	103138.0	158386.50	7	0.13
Researcher	male	46150.50	50000.0	94889.00	7	0.13
Researcher	female	49325.00	58242.0	70997.75	4	0.08
Administrator	male	72043.00	72043.0	72043.00	1	0.02
Administrator	female	87425.00	119950.0	152475.00	2	0.04

Top Five Salaries

Full.Name	gender	title	salary
Guston, David	male	Full Professor	$240,400
Cook-Deegan, Robert	male	Full Professor	$204,480
Barab, Sasha	female	Full Professor	$199,896
Vogel, Kathleen	female	Administrator	$185,000
Michael, Katina	female	Full Professor	$179,725

---

## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

Sch Sustain Engr & Built Envrn

Salary Summary by Rank & Gender

title	gender	q25	q50	q75	n	p
Full Professor	male	138850.00	195000.0	243400.0	13	0.16
Full Professor	uncoded	140527.25	144645.0	147468.8	4	0.05
Associate Professor	male	107332.00	112300.0	125400.0	11	0.14
Associate Professor	female	108925.00	111650.0	116075.0	3	0.04
Associate Professor	uncoded	110375.00	111350.0	112145.0	4	0.05
Assistant Professor	male	96600.00	99100.0	101500.0	5	0.06
Assistant Professor	female	97900.00	97900.0	99350.0	3	0.04
Assistant Professor	uncoded	97000.00	97400.0	99350.0	4	0.05
Teaching Faculty	male	76425.00	80750.0	87100.0	4	0.05
Teaching Faculty	female	39500.00	39500.0	39500.0	1	0.01
Teaching Faculty	uncoded	79400.00	79400.0	79400.0	1	0.01
Researcher	male	41130.25	60000.0	70395.0	10	0.13
Researcher	female	55000.00	66250.0	76534.5	4	0.05
Researcher	uncoded	48750.00	60300.0	63250.0	8	0.10
Administrator	male	109163.75	125612.5	142061.2	2	0.03
Administrator	female	70655.00	76650.0	82645.0	2	0.03

Top Five Salaries

Full.Name	gender	title	salary
Kavazanjian, Edward	male	Full Professor	$260,500
Westerhoff, Paul	male	Full Professor	$255,300
Hjelmstad, Keith	male	Full Professor	$253,100
Allenby, Braden	male	Full Professor	$243,400
Lackner, Klaus	male	Full Professor	$228,900

---

## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

School Of Art

Salary Summary by Rank & Gender

title	gender	q25	q50	q75	n	p
Full Professor	male	87681.0	90912.0	106227.00	9	0.17
Full Professor	female	89168.5	91731.0	99997.00	11	0.20
Associate Professor	male	77276.0	92592.5	110023.75	4	0.07
Associate Professor	female	74898.0	81018.0	85000.00	9	0.17
Assistant Professor	male	64000.0	64000.0	64000.00	1	0.02
Assistant Professor	female	64150.0	65133.0	66155.00	5	0.09
Assistant Professor	uncoded	64500.0	64500.0	64500.00	1	0.02
Teaching Faculty	male	46925.0	47950.0	48975.00	2	0.04
Teaching Faculty	female	44850.0	45900.0	59841.75	10	0.19
Administrator	female	86954.5	125909.0	164863.50	2	0.04

Top Five Salaries

Full.Name	gender	title	salary
Grabski, Joanna	female	Administrator	$203,818
Klett, Mark	male	Full Professor	$146,336
Weiser, Kurt	male	Full Professor	$140,243
Lawson, Shawn	male	Associate Professor	$118,000
Codell, Julie	female	Full Professor	$113,462

---

## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

School of Criminology & Crim J

Salary Summary by Rank & Gender

title	gender	q25	q50	q75	n	p
Full Professor	male	130900.0	143213.0	168519.0	7	0.16
Full Professor	female	145251.2	172167.5	199083.8	2	0.05
Associate Professor	male	100917.0	102960.0	106132.0	5	0.12
Associate Professor	female	100148.0	101000.0	101250.0	5	0.12
Associate Professor	uncoded	110000.0	110000.0	110000.0	1	0.02
Assistant Professor	male	84050.0	84100.0	84150.0	2	0.05
Assistant Professor	female	83750.0	84100.0	84400.0	4	0.09
Teaching Faculty	male	48000.0	51000.0	58250.0	11	0.26
Teaching Faculty	female	53000.0	53000.0	54000.0	5	0.12
Administrator	female	60000.0	60000.0	60000.0	1	0.02

Top Five Salaries

Full.Name	gender	title	salary
Spohn, Cassia	female	Full Professor	$226,000
Gould, Jon	male	Full Professor	$185,000
White, Michael	male	Full Professor	$173,538
Maguire, Edward	male	Full Professor	$163,500
Fradella, Henry	male	Associate Professor	$144,500

---

## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

School Of Earth & Space Explor

Salary Summary by Rank & Gender

title	gender	q25	q50	q75	n	p
Full Professor	male	136381.00	146686.5	175800.0	20	0.19
Full Professor	female	179637.50	183025.0	186412.5	2	0.02
Full Professor	uncoded	117358.00	144053.0	167001.5	3	0.03
Associate Professor	male	112612.50	113100.0	120050.0	3	0.03
Associate Professor	female	114156.00	119050.0	121250.0	5	0.05
Associate Professor	uncoded	127966.50	129183.0	130399.5	2	0.02
Assistant Professor	male	92000.00	96000.0	98200.0	5	0.05
Assistant Professor	female	92000.00	93500.0	95750.0	4	0.04
Assistant Professor	uncoded	96000.00	96000.0	97000.0	3	0.03
Teaching Faculty	female	45000.00	45000.0	45000.0	1	0.01
Researcher	male	54096.25	63500.0	73225.0	34	0.32
Researcher	female	56323.50	65000.0	70232.5	15	0.14
Researcher	uncoded	60000.00	60000.0	75196.0	5	0.05
Administrator	male	89760.00	89760.0	89760.0	1	0.01
Administrator	female	104475.00	116550.0	196525.0	3	0.03
Administrator	uncoded	111133.00	111133.0	111133.0	1	0.01

Top Five Salaries

Full.Name	gender	title	salary
Elkins-Tanton, Linda	female	Administrator	$276,500
Hodges, Kip	male	Full Professor	$267,100
Bell, James	male	Full Professor	$222,400
Christensen, Philip	male	Full Professor	$216,050
Windhorst, Rogier	uncoded	Full Professor	$189,950

---

## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

School of Geog Sci & Urban Pln

Salary Summary by Rank & Gender

title	gender	q25	q50	q75	n	p
Full Professor	male	116029.50	122723.0	136957.50	11	0.22
Full Professor	female	50106.50	60213.0	140930.00	3	0.06
Associate Professor	male	98245.50	101605.0	106640.50	3	0.06
Associate Professor	female	97998.50	101527.0	112263.50	3	0.06
Associate Professor	uncoded	102156.50	102938.0	103719.50	2	0.04
Assistant Professor	male	84500.00	85307.5	86211.25	4	0.08
Assistant Professor	female	78093.25	85525.5	86875.00	4	0.08
Assistant Professor	uncoded	85000.00	85000.0	85000.00	1	0.02
Teaching Faculty	male	55000.00	55000.0	57752.00	3	0.06
Teaching Faculty	female	60547.00	60547.0	60547.00	1	0.02
Teaching Faculty	uncoded	49479.00	49479.0	49479.00	1	0.02
Researcher	male	45019.25	52500.0	60000.00	4	0.08
Researcher	female	37017.00	40128.0	45540.25	4	0.08
Researcher	uncoded	50000.00	50000.0	50000.00	5	0.10
Administrator	male	86000.00	86000.0	86000.00	1	0.02
Administrator	female	62060.00	62060.0	62060.00	1	0.02

Top Five Salaries

Full.Name	gender	title	salary
Fotheringham, Stewart	male	Full Professor	$333,200
Asner, Gregory	male	Full Professor	$304,000
Turner, Billie	female	Full Professor	$221,647
Sailor, David	male	Full Professor	$141,453
Cerveny, Randall	male	Full Professor	$132,462

---

## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

School of Math & Stat Sciences

Salary Summary by Rank & Gender

title	gender	q25	q50	q75	n	p
Full Professor	male	125692.50	138136.0	161198.00	20	0.20
Full Professor	female	144838.00	164207.0	169106.00	3	0.03
Full Professor	uncoded	132695.00	132695.0	132695.00	1	0.01
Associate Professor	male	96670.50	104980.0	110147.50	15	0.15
Associate Professor	female	93844.25	97091.0	98876.00	4	0.04
Associate Professor	uncoded	74460.00	99722.0	106480.00	4	0.04
Assistant Professor	male	92781.00	101600.0	105000.00	5	0.05
Assistant Professor	female	105000.00	105000.0	105000.00	1	0.01
Assistant Professor	uncoded	92500.00	95000.0	97500.00	3	0.03
Teaching Faculty	male	50470.00	59955.0	60444.00	17	0.17
Teaching Faculty	female	55000.00	57390.0	61038.00	9	0.09
Teaching Faculty	uncoded	55000.00	57657.5	65625.75	8	0.08
Researcher	male	53250.00	54000.0	55114.00	7	0.07
Researcher	female	66881.75	80063.5	93245.25	2	0.02
Researcher	uncoded	54000.00	54000.0	54000.00	1	0.01
Administrator	male	210803.00	210803.0	210803.00	1	0.01
Administrator	female	66271.00	66271.0	66271.00	1	0.01

Top Five Salaries

Full.Name	gender	title	salary
Boggess, Albert	male	Full Professor	$240,500
Mahalov, Alex	male	Full Professor	$224,020
McCulloch, Robert	male	Full Professor	$212,170
Milner, Fabio	male	Administrator	$210,803
Renaut, Rosemary	female	Full Professor	$174,005

---

## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

School of Molecular Sciences

Salary Summary by Rank & Gender

title	gender	q25	q50	q75	n	p
Full Professor	male	125521.00	135675.0	149260.00	17	0.18
Full Professor	female	142128.00	159551.0	226197.00	5	0.05
Full Professor	uncoded	127221.00	128007.0	134869.00	3	0.03
Associate Professor	male	103056.00	103495.0	105099.00	5	0.05
Associate Professor	female	101409.00	101409.0	101409.00	1	0.01
Assistant Professor	male	94569.00	95523.5	96478.00	6	0.07
Assistant Professor	female	93000.00	94000.0	94856.50	3	0.03
Assistant Professor	uncoded	96478.00	96478.0	96478.00	1	0.01
Teaching Faculty	male	46430.50	47918.0	48699.75	6	0.07
Teaching Faculty	female	47425.00	48723.0	56010.50	11	0.12
Teaching Faculty	uncoded	46499.50	47999.0	48245.50	3	0.03
Researcher	male	50201.25	55977.0	88750.00	12	0.13
Researcher	female	47607.00	50679.5	67000.00	10	0.11
Researcher	uncoded	39244.25	48960.0	54428.25	8	0.09
Administrator	female	62720.00	62720.0	62720.00	1	0.01

Top Five Salaries

Full.Name	gender	title	salary
Navrotsky, Alexandra	female	Full Professor	$240,000
Fromme, Petra	female	Full Professor	$226,197
Angell, Charles	male	Full Professor	$191,976
Moore, Thomas	male	Full Professor	$184,096
Yarger, Jeffery	male	Full Professor	$176,161

---

## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

School of Politics & Global St

Salary Summary by Rank & Gender

title	gender	q25	q50	q75	n	p
Full Professor	male	112700	171750	175000.0	5	0.13
Full Professor	female	115875	124750	139000.0	3	0.08
Associate Professor	male	100500	101750	102000.0	5	0.13
Associate Professor	female	85750	96000	99771.5	6	0.16
Assistant Professor	male	85000	86750	99125.0	4	0.11
Assistant Professor	female	88750	92000	95250.0	2	0.05
Assistant Professor	uncoded	85000	85000	85000.0	1	0.03
Teaching Faculty	male	56500	119500	154500.0	8	0.21
Teaching Faculty	female	56625	58250	81875.0	3	0.08
Researcher	female	60000	60000	60000.0	1	0.03

Top Five Salaries

Full.Name	gender	title	salary
Hero, Rodney	male	Full Professor	$341,750
Polt, Michael	male	Teaching Faculty	$226,600
Thies, Cameron	male	Full Professor	$175,000
Hechter, Michael	male	Full Professor	$171,750
Bergen, Peter	male	Teaching Faculty	$157,500

---

## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

School Of Public Affairs

Salary Summary by Rank & Gender

title	gender	q25	q50	q75	n	p
Full Professor	male	121950	186375.0	206708.0	9	0.28
Full Professor	female	124250	146304.5	148974.2	4	0.12
Associate Professor	male	102820	104725.0	113487.5	4	0.12
Associate Professor	uncoded	106496	106496.0	106496.0	1	0.03
Assistant Professor	male	92150	94200.0	94600.0	3	0.09
Assistant Professor	female	90125	92250.0	94375.0	2	0.06
Assistant Professor	uncoded	88500	88500.0	88500.0	1	0.03
Teaching Faculty	male	30950	40300.0	49700.0	4	0.12
Teaching Faculty	female	40195	49000.0	62000.0	3	0.09
Administrator	female	67200	67200.0	67200.0	1	0.03

Top Five Salaries

Full.Name	gender	title	salary
Bozeman, Barry	male	Full Professor	$236,900
Kapstein, Ethan	male	Full Professor	$227,500
Bretschneider, Stuart	male	Full Professor	$206,708
Siegel, Donald	male	Full Professor	$190,000
Reilly, Thomas	male	Full Professor	$186,375

---

## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

School of Social Transform

Salary Summary by Rank & Gender

title	gender	q25	q50	q75	n	p
Full Professor	male	111626.8	126301.0	154308.75	4	0.07
Full Professor	female	105880.0	110239.0	148250.00	9	0.17
Full Professor	uncoded	161685.0	161685.0	161685.00	1	0.02
Associate Professor	male	85536.0	90000.0	100738.00	9	0.17
Associate Professor	female	83312.5	92394.5	99672.75	14	0.26
Associate Professor	uncoded	100673.0	100673.0	100673.00	1	0.02
Assistant Professor	male	58750.0	67500.0	76250.00	2	0.04
Assistant Professor	female	85000.0	85000.0	85000.00	5	0.09
Assistant Professor	uncoded	85000.0	85000.0	85000.00	1	0.02
Teaching Faculty	male	53460.5	54171.0	54881.50	2	0.04
Teaching Faculty	female	39537.5	45000.0	52422.00	3	0.06
Teaching Faculty	uncoded	45000.0	45000.0	45000.00	1	0.02
Researcher	female	70343.0	70343.0	70343.00	1	0.02
Researcher	uncoded	42500.0	42500.0	42500.00	1	0.02

Top Five Salaries

Full.Name	gender	title	salary
Kitch, Sally	female	Full Professor	$247,500
Brayboy, Bryan	male	Full Professor	$219,429
Scott, Kimberly	female	Full Professor	$180,000
Lomawaima, K	uncoded	Full Professor	$161,685
Moore, Elsie	female	Full Professor	$148,250

---

## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

School Of Social Work

Salary Summary by Rank & Gender

title	gender	q25	q50	q75	n	p
Full Professor	male	129970.00	131845.0	137401.00	5	0.07
Full Professor	female	102075.00	116880.0	127057.50	6	0.09
Associate Professor	male	91648.75	92863.5	94078.25	2	0.03
Associate Professor	female	90194.00	90267.0	91528.00	5	0.07
Assistant Professor	male	82250.00	83500.0	84750.00	2	0.03
Assistant Professor	female	83000.00	83550.0	83750.00	10	0.14
Assistant Professor	uncoded	82425.00	83000.0	84700.00	4	0.06
Teaching Faculty	male	35725.00	48450.0	49800.00	3	0.04
Teaching Faculty	female	48200.00	50750.0	53710.00	26	0.37
Researcher	male	60000.00	60000.0	60000.00	1	0.01
Researcher	female	51885.00	64000.0	66250.00	4	0.06
Administrator	female	71365.75	76231.5	81097.25	2	0.03

Top Five Salaries

Full.Name	gender	title	salary
Williams, James	male	Full Professor	$254,000
Messing, Jill	female	Full Professor	$160,000
Shafer, Michael	male	Full Professor	$137,401
Ashford, Jose	male	Full Professor	$131,845
Segal, Elizabeth	female	Full Professor	$130,390

---

## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

SHPRS History Faculty

Salary Summary by Rank & Gender

title	gender	q25	q50	q75	n	p
Full Professor	male	101565.00	130000.0	158446.00	5	0.12
Full Professor	female	130808.50	147789.0	164769.50	2	0.05
Full Professor	uncoded	135206.00	135206.0	135206.00	1	0.02
Associate Professor	male	108000.00	108707.0	122268.00	5	0.12
Associate Professor	female	75612.00	91369.0	104841.00	7	0.17
Assistant Professor	male	75741.00	76732.0	78241.00	3	0.07
Assistant Professor	female	77506.00	79750.0	79875.00	3	0.07
Assistant Professor	uncoded	82494.00	82494.0	82494.00	1	0.02
Teaching Faculty	male	50575.00	51000.0	67667.00	9	0.21
Teaching Faculty	female	49428.75	58333.5	67959.25	4	0.10
Teaching Faculty	uncoded	47992.00	47992.0	47992.00	1	0.02
Researcher	female	60000.00	60000.0	60000.00	1	0.02

Top Five Salaries

Full.Name	gender	title	salary
Fixico, Donald	male	Full Professor	$271,527
Austin, Curtis	male	Associate Professor	$190,000
Alexander, Leslie	female	Associate Professor	$190,000
Saikia, Yasmin	female	Full Professor	$181,750
Critchlow, Donald	male	Full Professor	$158,446

---

## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

Social & Behavioral Sciences

Salary Summary by Rank & Gender

title	gender	q25	q50	q75	n	p
Full Professor	male	103912.0	108184	118114.0	7	0.10
Full Professor	female	68388.5	79040	102252.0	3	0.04
Full Professor	uncoded	114104.0	114104	114104.0	1	0.01
Associate Professor	male	93394.0	97660	99152.0	5	0.07
Associate Professor	female	91490.0	93801	98000.0	9	0.12
Assistant Professor	male	83562.5	85625	87437.5	4	0.06
Assistant Professor	female	81000.0	82987	85000.0	8	0.11
Assistant Professor	uncoded	82500.0	82500	82500.0	1	0.01
Teaching Faculty	male	48224.0	54000	54000.0	9	0.12
Teaching Faculty	female	52000.0	54000	55000.0	19	0.26
Teaching Faculty	uncoded	54000.0	54000	54000.0	1	0.01
Researcher	female	48750.0	52810	56715.0	4	0.06
Administrator	male	111594.0	111594	111594.0	1	0.01

Top Five Salaries

Full.Name	gender	title	salary
Barclay, Scott	male	Full Professor	$172,600
Mickelson, Kristin	female	Full Professor	$125,464
Kassing, Jeffrey	male	Full Professor	$118,412
Kirby, Andrew	male	Full Professor	$117,816
Nadesan, Majia	uncoded	Full Professor	$114,104

---

## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

Sols Administration & Faculty

Salary Summary by Rank & Gender

title	gender	q25	q50	q75	n	p
Full Professor	male	119697.00	134356.0	174870.0	23	0.18
Full Professor	female	119868.00	146298.0	161500.0	13	0.10
Full Professor	uncoded	97221.25	114017.5	130813.8	2	0.02
Associate Professor	male	98826.75	105545.0	123339.0	10	0.08
Associate Professor	female	102720.50	110150.0	118748.5	4	0.03
Associate Professor	uncoded	99293.50	102819.0	106344.5	2	0.02
Assistant Professor	male	90550.00	93700.0	96850.0	2	0.02
Assistant Professor	female	92000.00	94000.0	94150.0	7	0.06
Assistant Professor	uncoded	99000.00	99000.0	99000.0	1	0.01
Teaching Faculty	male	48000.00	48000.0	56875.0	7	0.06
Teaching Faculty	female	48000.00	48000.0	53150.0	8	0.06
Researcher	male	50123.00	52000.0	58260.0	17	0.14
Researcher	female	49500.00	51637.5	64250.0	16	0.13
Researcher	uncoded	47494.00	50678.5	55414.0	8	0.06
Administrator	male	155560.75	189940.5	224320.2	2	0.02
Administrator	female	77870.00	83580.0	89290.0	2	0.02
Administrator	uncoded	275000.00	275000.0	275000.0	1	0.01

Top Five Salaries

Full.Name	gender	title	salary
Maienschein, Jane	female	Full Professor	$352,187
Kusumi, Kenro	uncoded	Administrator	$275,000
Buetow, Kenneth	male	Administrator	$258,700
Grimm, Nancy	female	Full Professor	$253,500
Laubichler, Manfred	male	Full Professor	$245,400

---

## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

SOS Faculty & Researchers

Salary Summary by Rank & Gender

title	gender	q25	q50	q75	n	p
Full Professor	male	75392.50	110980.5	140816.00	6	0.11
Full Professor	female	124686.75	190624.5	263000.00	4	0.08
Full Professor	uncoded	118827.00	118827.0	118827.00	1	0.02
Associate Professor	male	97101.00	97515.0	97929.00	2	0.04
Associate Professor	female	98982.00	99813.0	100644.00	2	0.04
Associate Professor	uncoded	143500.00	143500.0	143500.00	1	0.02
Assistant Professor	male	78183.50	89251.0	101164.00	4	0.08
Assistant Professor	female	87116.00	87125.0	102562.50	3	0.06
Assistant Professor	uncoded	87333.25	87966.5	88599.75	2	0.04
Teaching Faculty	male	46250.00	51129.0	59771.00	10	0.19
Teaching Faculty	female	38655.00	45000.0	45000.00	11	0.21
Teaching Faculty	uncoded	27000.00	50000.0	52632.00	5	0.09
Researcher	male	103691.25	152382.5	201073.75	2	0.04

Top Five Salaries

Full.Name	gender	title	salary
Merrigan, Kathleen	female	Full Professor	$287,000
Pfirman, Stephanie	female	Full Professor	$255,000
Melnick, Robert	male	Researcher	$249,765
Redman, Charles	male	Full Professor	$198,867
Basile, George	male	Teaching Faculty	$168,913

---

## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

The Design School

Salary Summary by Rank & Gender

title	gender	q25	q50	q75	n	p
Full Professor	male	97533.0	122233.0	133800.0	9	0.16
Full Professor	female	139002.8	140005.5	141008.2	2	0.04
Full Professor	uncoded	128056.0	128056.0	128056.0	1	0.02
Associate Professor	male	80020.0	81763.0	83445.0	9	0.16
Associate Professor	female	83053.5	97523.0	112837.8	6	0.11
Associate Professor	uncoded	82032.0	82032.0	82032.0	1	0.02
Assistant Professor	male	69822.5	70250.0	70625.0	4	0.07
Assistant Professor	female	70700.0	70700.0	70700.0	1	0.02
Assistant Professor	uncoded	70500.0	71000.0	71375.0	3	0.05
Teaching Faculty	male	43212.5	48100.5	61722.5	8	0.15
Teaching Faculty	female	32235.5	50900.0	66225.0	10	0.18
Administrator	female	124750.0	124750.0	124750.0	1	0.02

Top Five Salaries

Full.Name	gender	title	salary
Neveu, Mark	male	Full Professor	$144,850
Jackson, Maria	female	Full Professor	$142,011
Heller, Cheryl	female	Full Professor	$138,000
Underhill, Michael	male	Full Professor	$135,995
Brooks, Kenneth	male	Full Professor	$133,800

---

## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

The Sanford School

Salary Summary by Rank & Gender

title	gender	q25	q50	q75	n	p
Full Professor	male	124357.75	158364.5	183931.5	6	0.12
Full Professor	female	122326.00	127953.0	132502.0	7	0.14
Associate Professor	male	98500.00	98500.0	98500.0	1	0.02
Associate Professor	female	99173.00	100900.0	125000.0	9	0.18
Assistant Professor	male	86212.50	86775.0	87337.5	2	0.04
Assistant Professor	female	85528.75	87357.5	88800.0	6	0.12
Teaching Faculty	male	24814.00	24814.0	24814.0	1	0.02
Teaching Faculty	female	82609.00	82609.0	88433.0	5	0.10
Teaching Faculty	uncoded	49300.00	49300.0	49300.0	1	0.02
Researcher	male	113603.00	113603.0	113603.0	1	0.02
Researcher	female	52500.00	52500.0	59282.5	7	0.14
Researcher	uncoded	53375.00	54250.0	55125.0	2	0.04
Administrator	female	72000.00	72000.0	72000.0	1	0.02

Top Five Salaries

Full.Name	gender	title	salary
Elliott, Stephen	male	Full Professor	$281,860
Sandefur, Rebecca	female	Full Professor	$220,000
Fabes, Richard	male	Full Professor	$190,000
Meek, Shantel	female	Teaching Faculty	$168,093
Ladd, Gary	male	Full Professor	$165,726

---

## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

WPC Accountancy

Salary Summary by Rank & Gender

title	gender	q25	q50	q75	n	p
Full Professor	male	165050.00	200131.0	299042.0	7	0.16
Full Professor	female	201575.00	237500.0	273425.0	2	0.05
Full Professor	uncoded	174393.25	223786.5	273179.8	2	0.05
Associate Professor	male	224344.00	262453.5	280427.5	4	0.09
Associate Professor	female	267244.50	274394.0	278578.5	4	0.09
Associate Professor	uncoded	265220.00	265220.0	265220.0	1	0.02
Assistant Professor	male	217493.75	219475.0	221306.2	6	0.14
Assistant Professor	female	215475.00	215475.0	215475.0	1	0.02
Assistant Professor	uncoded	225000.00	225000.0	225000.0	1	0.02
Teaching Faculty	male	88675.75	98550.0	129500.0	8	0.18
Teaching Faculty	female	96612.50	120650.0	143750.0	8	0.18

Top Five Salaries

Full.Name	gender	title	salary
Call, Andrew	male	Full Professor	$401,664
Lamoreaux, Phillip	male	Associate Professor	$323,113
Li, Yinghua	uncoded	Full Professor	$322,573
Matejka, Michal	female	Full Professor	$309,350
Reckers, Philip	male	Full Professor	$300,975

---

## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

WPC Economics

Salary Summary by Rank & Gender

title	gender	q25	q50	q75	n	p
Full Professor	male	170849.00	237847.5	298320.0	14	0.30
Full Professor	female	180091.00	180091.0	180091.0	1	0.02
Full Professor	uncoded	296743.00	296743.0	296743.0	1	0.02
Associate Professor	male	172973.75	183753.0	184973.5	6	0.13
Associate Professor	female	149103.25	153830.5	158557.8	2	0.04
Associate Professor	uncoded	107984.00	107984.0	107984.0	1	0.02
Assistant Professor	male	147288.25	154000.0	157750.0	4	0.09
Assistant Professor	female	147432.75	152288.5	157144.2	2	0.04
Teaching Faculty	male	93992.75	101037.5	104520.0	8	0.17
Teaching Faculty	female	102699.75	104300.5	105800.5	4	0.09
Researcher	male	111706.00	111706.0	111706.0	1	0.02
Administrator	male	122014.25	190900.5	259786.8	2	0.04
Administrator	female	43866.00	43866.0	43866.0	1	0.02

Top Five Salaries

Full.Name	gender	title	salary
Prescott, Edward	male	Full Professor	$340,159
Ventura, Gustavo	male	Administrator	$328,673
Manelli, Alejandro	male	Full Professor	$320,449
Silverman, Daniel	male	Full Professor	$310,840
Chade, Hector	male	Full Professor	$302,410

---

## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

WPC Information Systems

Salary Summary by Rank & Gender

title	gender	q25	q50	q75	n	p
Full Professor	male	130718.75	157081.5	183444.2	2	0.05
Full Professor	uncoded	225751.00	227473.0	229195.0	2	0.05
Associate Professor	male	177754.75	183509.5	189264.2	2	0.05
Associate Professor	uncoded	178106.00	185693.0	193280.0	2	0.05
Assistant Professor	male	168039.00	168039.0	168039.0	1	0.03
Assistant Professor	female	168150.75	172100.5	176050.2	2	0.05
Assistant Professor	uncoded	180000.00	180000.0	180000.0	1	0.03
Teaching Faculty	male	84549.00	95000.0	120000.0	13	0.35
Teaching Faculty	female	75055.75	93905.0	124146.2	4	0.11
Teaching Faculty	uncoded	86007.50	100000.0	103666.5	7	0.19
Administrator	uncoded	338643.00	338643.0	338643.0	1	0.03

Top Five Salaries

Full.Name	gender	title	salary
Santanam, Raghu	uncoded	Administrator	$338,643
Chen, Pei-yu	uncoded	Full Professor	$230,917
Zhang, Zhongju	uncoded	Full Professor	$224,029
Shao, Benjamin	male	Full Professor	$209,807
Shi, Zhan	uncoded	Associate Professor	$200,867

---

## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

WPC Management

Salary Summary by Rank & Gender

title	gender	q25	q50	q75	n	p
Full Professor	male	219151.5	282000.0	349986.5	7	0.16
Associate Professor	male	195430.5	228779.5	232798.8	8	0.19
Associate Professor	female	144590.8	155322.5	168114.2	4	0.09
Assistant Professor	male	146796.0	146796.0	146796.0	1	0.02
Assistant Professor	female	215000.0	215000.0	215000.0	1	0.02
Assistant Professor	uncoded	163151.0	163151.0	163151.0	1	0.02
Teaching Faculty	male	85680.0	97549.0	119294.0	13	0.30
Teaching Faculty	female	97174.0	103807.0	106524.0	5	0.12
Teaching Faculty	uncoded	122520.0	122520.0	122520.0	1	0.02
Researcher	male	47208.0	47208.0	47208.0	1	0.02
Administrator	male	334499.0	334499.0	334499.0	1	0.02

Top Five Salaries

Full.Name	gender	title	salary
LePine, Jeffery	male	Full Professor	$402,257
Gomez-Mejia, Luis	male	Full Professor	$361,393
Ashforth, Blake	male	Full Professor	$338,580
Shen, Wei	male	Administrator	$334,499
Corley, Kevin	male	Full Professor	$282,000

---

## `summarise()` has grouped output by 'title'. You can override using the
## `.groups` argument.

WPC Supply Chain Management

Salary Summary by Rank & Gender

title	gender	q25	q50	q75	n	p
Full Professor	male	206697.2	238612	255275.5	10	0.29
Full Professor	uncoded	250000.0	250000	250000.0	1	0.03
Associate Professor	male	117181.5	181363	185681.5	3	0.09
Associate Professor	uncoded	167055.0	178720	180270.5	3	0.09
Assistant Professor	male	154050.5	160000	165000.0	3	0.09
Assistant Professor	female	148601.0	148601	148601.0	1	0.03
Teaching Faculty	male	91750.0	98512	117577.5	7	0.20
Teaching Faculty	female	89478.5	90457	91435.5	2	0.06
Teaching Faculty	uncoded	103103.5	106207	109310.5	2	0.06
Administrator	male	103250.0	119000	175139.0	3	0.09

Top Five Salaries

Full.Name	gender	title	salary
Choi, Thomas	male	Full Professor	$288,818
Carter, Craig	male	Full Professor	$263,000
Fowler, John	male	Full Professor	$256,139
Rabinovich, Elliot	male	Full Professor	$252,685
Li, Hongmin	uncoded	Full Professor	$250,000

---